home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / geschaef / ds0093 / topfakt / adrlist4.for < prev    next >
Text File  |  1993-06-30  |  2KB  |  61 lines
  1. / Adressenliste mit Druck der Bemerkung
  2. ^12
  3. ^BAdressen-Bemerkungsliste ^b ^12
  4. /
  5. !#VORHERIGE_GRUPPE:= "''"
  6.                                                               Seite: #SEITE:8:0
  7.                                                               Stand: #DATUM
  8. Nr.    Adresse
  9. ─────────────────────────────────────────────────────────────────────────────
  10. /
  11. !LISTE:60                         // Druck Liste maximal bis Druckzeile 60
  12. /
  13. !#ANZ:= #ANZ + 1
  14. !WENN #GRUPPE <> ' ' .AND. #VORHERIGE_GRUPPE <> #GRUPPE
  15. #GRUPPENTITEL #GRUPPE        // Ausgabe der Gruppe bei entsprechender Sortierung
  16. !ENDEWENN
  17. /
  18. #NR      #ANREDE                               [Tel.  : #TELEFON1 ]
  19.          #VORNAME                              [Tel.2 : #TELEFON2 ]
  20.          #NAME                                 [Fax   : #TELEFAX  ]
  21.          [[#NAME2 ]]
  22.          #STRASSE                              Angelegt seit: #SEIT
  23.          #LAND#PLZ  #ORT
  24.  
  25. [[Bemerk.: #BEMERKUNG:78 ]]
  26.  
  27. /
  28. !#VORHERIGE_GRUPPE:= #GRUPPE
  29. !ENDELISTE
  30. !WENN #LETZTESEITE
  31. ─────────────────────────────────────────────────────────────────────────────
  32. Anzahl der aufgelisteten Adressen: #ANZ
  33. !ENDEWENN
  34. !SEITENAUSWURF
  35. !FORMULARENDE    // alles, was hiernach kommt, wird nicht mehr gedruckt...
  36.  
  37.  
  38.  
  39. !PLATZHALTER
  40.   #NR,               kun->kdnr
  41.   #ANREDE,           kun->anrede
  42.   #VORNAME,          kun->n1
  43.   #NAME,             kun->n2
  44.   #NAME2,            kun->ansprechp
  45.   #STRASSE,          kun->strasse
  46.   #LAND ,            Ltrim( Trim( kun->land)+ ' ')
  47.   #PLZ,              kun->plz
  48.   #ORT,              kun->ort
  49.   #TELEFON1,         kun->telefon1
  50.   #TELEFON2,         kun->telefon2
  51.   #TELEFAX,          kun->fax
  52.   #BEMERKUNG,        kun->Bemerkung
  53.   #SEIT,             kun->seit
  54.  
  55.   #ANZ,              anz                         // Anzahl der Adressen zählen
  56.  
  57.   #GRUPPE,           IF( 'Gruppe'$ cKunSort, kun->Gruppe, IF( 'Status'$cKunSort, kun->Status, '') )
  58.   #GRUPPENTITEL,     IF( 'Gruppe'$ cKunSort, 'GRUPPE: ', IF( 'Status'$cKunSort, 'STATUS: ', ''))
  59.   #VORHERIGE_GRUPPE, vorhergruppe
  60. !ENDE PLATZHALTER
  61.